home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
ELT-UC13.ZIP
/
CHAT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-07-09
|
57KB
|
3,437 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Integer INTEGER003
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer TINTEGER018(10)
Integer TINTEGER019(10)
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
Integer INTEGER030
Integer INTEGER031
Integer INTEGER032
Integer INTEGER033
Integer INTEGER034
Integer INTEGER035
Integer INTEGER036
Integer INTEGER037
Integer INTEGER038
Integer INTEGER039
Integer INTEGER040
Integer INTEGER041
Integer INTEGER042
Integer INTEGER043
Integer INTEGER044
Integer INTEGER045
Integer INTEGER046
Integer INTEGER047
Integer INTEGER048
Integer INTEGER049
Integer INTEGER050
Integer INTEGER051
String STRING001
String STRING002
String STRING006
String STRING010
String STRING011
String TSTRING012(10)
String TSTRING013(10)
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String TSTRING028(500)
String TSTRING029(500)
String TSTRING030(16)
String STRING031
String STRING032
String TSTRING033(100)
Byte BYTE001
BigStr BIGSTR001
BigStr BIGSTR002
Declare Function FUNCTION001(String STRING003, Integer INTEGER004, String STRING004, String STRING005, Boolean BOOLEAN002) String
Declare Function FUNCTION002(String STRING009) Boolean
Goto LABEL007
End
BOOLEAN001 = 1
STRING002 = ""
For INTEGER003 = 1 To Len("")
BYTE001 = Asc(Mid("", INTEGER003, 1))
If ((BYTE001 >= 65) && (BYTE001 <= 90)) Then
STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
Continue
Endif
If ((BYTE001 >= 48) && (BYTE001 <= 57)) Then
STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == ".") Then
STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == ",") Then
STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == "(") Then
STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == ")") Then
STRING002 = STRING002 + "@X08" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == "Ö") Then
STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == "Ä") Then
STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
Continue
Endif
If (Chr(BYTE001) == "Å") Then
STRING002 = STRING002 + "@X0F" + Chr(BYTE001) + "@X07"
Continue
Endif
STRING002 = STRING002 + Chr(BYTE001)
Next
STRING001 = STRING002
EndFunc
;------------------------------------------------------------------------------
Function FUNCTION001(String STRING003, Integer INTEGER004, String STRING004, String STRING005, Boolean BOOLEAN002) String
String STRING007
String STRING008
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Boolean BOOLEAN003
String STRING009
STRING007 = ""
Print STRING003
Print "@X08["
INTEGER007 = GetX()
INTEGER008 = GetY()
For INTEGER006 = 1 To INTEGER004
Print "·"
Next
Print "@X08]"
AnsiPos INTEGER007, INTEGER008
:LABEL001
If (BOOLEAN002 == 0) STRING008 = Inkey()
If (BOOLEAN002 == 1) STRING008 = KInkey()
Select Case (Asc(STRING008))
Case 0
Goto LABEL001
Case 13
Goto LABEL003
Case 27
AnsiPos INTEGER007, INTEGER008
Print "@X08"
For INTEGER006 = 1 To INTEGER004
Print "·"
Next
STRING007 = ""
Goto LABEL003
Case 8, 0
AnsiPos GetX() - 1, GetY()
Print "@X07" + Right(STRING007, 1)
AnsiPos GetX() - 1, GetY()
Print "@X08" + Right(STRING007, 1)
AnsiPos GetX() - 1, GetY()
Print "@X08·"
AnsiPos GetX() - 1, GetY()
STRING007 = Left(STRING007, Len(STRING007) - 1)
Goto LABEL001
End Select
INTEGER005 = Len(STRING005)
BOOLEAN003 = 0
For INTEGER006 = 1 To INTEGER005
If (STRING008 == Mid(STRING005, INTEGER006, 1)) Then
BOOLEAN003 = 1
Goto LABEL002
Endif
Next
If (STRING008 == Chr(8)) BOOLEAN003 = 0
:LABEL002
If ((BOOLEAN003 == 1) && (Len(STRING007) < INTEGER004)) Then
Print "@X08" + STRING008
AnsiPos GetX() - 1, GetY()
Print "@X07" + STRING008
AnsiPos GetX() - 1, GetY()
Print STRING004 + STRING008
STRING007 = STRING007 + STRING008
Endif
Goto LABEL001
:LABEL003
FUNCTION001 = STRING007
EndFunc
;------------------------------------------------------------------------------
Function FUNCTION002(String STRING009) Boolean
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
String STRING010
Boolean BOOLEAN005
String STRING011
BOOLEAN005 = 1
INTEGER012 = GetX()
INTEGER013 = GetY()
Print STRING009
INTEGER010 = GetX()
INTEGER011 = GetY()
:LABEL004
If (BOOLEAN005 == 1) Then
AnsiPos INTEGER010, INTEGER011
Print "@X0Fs@X07ure @X08nope"
Else
AnsiPos INTEGER010, INTEGER011
Print "@X08sure @X0Fn@X07ope"
Endif
:LABEL005
STRING010 = Inkey()
Select Case (STRING010)
Case "LEFT"
BOOLEAN005 = 1
Goto LABEL004
Case "RIGHT"
BOOLEAN005 = 0
Goto LABEL004
Case "N"
BOOLEAN005 = 0
Goto LABEL006
Case "Y"
BOOLEAN005 = 1
Goto LABEL006
Case "S"
BOOLEAN005 = 1
Goto LABEL006
Case Chr(13)
Goto LABEL006
Case Else
Goto LABEL005
End Select
:LABEL006
If (BOOLEAN005 == 1) Then
AnsiPos INTEGER010, INTEGER011
Print "@X0Fsure @X08nope"
Else
AnsiPos INTEGER010, INTEGER011
Print "@X08sure @X0Fnope"
Endif
Delay 2
AnsiPos INTEGER012, INTEGER013
INTEGER009 = 1
While (((1 < 0) && (INTEGER009 >= Len(STRING009) + 10)) || ((1 >= 0) && (INTEGER009 <= Len(STRING009) + 10))) Do
Print " "
INTEGER009 = INTEGER009 + 1
EndWhile
FUNCTION002 = BOOLEAN005
EndFunc
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " ------------------------------------ "
STRING011 = " ULTRACHAT BY [MIKE MC] OF ELEMENTS "
STRING011 = " ------------------------------------ "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " LOOKING FOR BACKDOORS? "
STRING011 = " Well.. good luck .. just 3ooo lines of code. =) "
STRING011 = " "
STRING011 = " As long as ju don't fuck around with my name "
STRING011 = " or anything: feel free to view my code.. "
STRING011 = " Perhaps you'll even learn somehting! =) "
STRING011 = " "
STRING011 = " - [mike mc]^elt^bpt "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
STRING011 = " "
:LABEL007
INTEGER046 = 500
STRING011 = " ultrachat v1.3 by [mike mc] of elt"
STRING031 = Chr(27) + "["
INTEGER050 = 6
INTEGER029 = 0
INTEGER030 = 0
STRING020 = Left(Time(), 5)
Log "Ultrachat by [mike mc] started at " + TimeAp(Time()) + ".", 0
PageOff
TSTRING013(1) = ""
TSTRING013(2) = ""
TSTRING013(3) = ""
TSTRING013(4) = ""
TSTRING013(5) = ""
TSTRING013(6) = ""
TSTRING013(7) = ""
TSTRING013(8) = ""
TSTRING012(1) = ""
TSTRING012(2) = ""
TSTRING012(3) = ""
TSTRING012(4) = ""
TSTRING012(5) = ""
TSTRING012(6) = ""
TSTRING012(7) = ""
TSTRING012(8) = ""
INTEGER014 = 1
INTEGER015 = 14
INTEGER016 = 1
INTEGER017 = 4
INTEGER022 = 2
INTEGER023 = 1
FOpen 1, PPEPath() + "CHAT.CNF", 0, 0
FGet 1, STRING022
FGet 1, STRING023
FGet 1, STRING024
FGet 1, INTEGER028
FGet 1, STRING025
FGet 1, INTEGER041
FGet 1, INTEGER044
FGet 1, INTEGER042
FGet 1, INTEGER031
FGet 1, INTEGER043
FGet 1, INTEGER048
FGet 1, INTEGER049
FClose 1
FOpen 1, PPEPath() + "MACROS.NUM", 0, 0
FGet 1, INTEGER047
FClose 1
FOpen 1, PPEPath() + "MACROS.DAT", 0, 0
For INTEGER024 = 1 To INTEGER047
FGet 1, TSTRING028(INTEGER024)
FGet 1, TSTRING029(INTEGER024)
Next
FClose 1
INTEGER024 = 0
FOpen 1, PPEPath() + "RUMORS.DAT", 0, 0
For INTEGER024 = 1 To 100
FGet 1, TSTRING033(INTEGER024)
If (Len(TSTRING033(INTEGER024)) < 2) Break
Next
FClose 1
TSTRING033(INTEGER024) = "ULTRACHAT BY [MIKE MC]"
INTEGER051 = INTEGER024
If (TokCount() == 0) STRING021 = STRING022
STRING032 = GetToken()
Select Case (STRING032)
Case "1"
STRING021 = STRING022
Case "2"
STRING021 = STRING023
Case "3"
STRING021 = STRING024
Case ""
STRING021 = STRING022
Case Else
STRING021 = "Sysop"
End Select
If (INTEGER028 == 0) INTEGER028 = Random(INTEGER050 - 1) + 1
Select Case (INTEGER028)
Case 2
TSTRING030(7) = "@X04"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0C"
Case 1
TSTRING030(7) = "@X02"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0A"
Case 3
TSTRING030(7) = "@X04"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0C"
Case 4
TSTRING030(7) = "@X03"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0B"
Case 5
TSTRING030(7) = "@X05"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0D"
Case 6
TSTRING030(7) = "@X07"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0F"
End Select
If (STRING025 <> "") Then
TSTRING013(1) = STRING025 + " "
TINTEGER019(1) = Len(STRING025) + 1
Endif
Print "@POFF@"
DispStr "%" + PPEPath() + "\CHAT" + String(INTEGER028) + ".ANS"
If (INTEGER031 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
Print "@X0F"
SPrint "Effects"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER029 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 40, 1
Print "@X0F"
SPrint "UsrWn"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER044 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 54, 1
Print "@X0F"
SPrint "UsrExit"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER042 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 62, 1
Print "@X0F"
SPrint "Macros"
AnsiPos INTEGER032, INTEGER033
Endif
AnsiPos 1, 1
BIGSTR001 = STRING011
Gosub LABEL022
BIGSTR001 = U_Name()
BIGSTR001 = Lower(Right(BIGSTR001, 11))
BIGSTR001 = Trim(BIGSTR001, " ")
INTEGER039 = 75 - Len(BIGSTR001)
AnsiPos INTEGER039, 12
Print "@X08", BIGSTR001, " ", Chr(31)
INTEGER020 = 8
AnsiPos 4, 12
Print Chr(30), " ", STRING021
INTEGER024 = Random(2)
If (Len(STRING025) > 0) Then
Delay 18
Gosub LABEL053
AnsiPos 1, 4
Else
AnsiPos 1, 3
INTEGER017 = 3
INTEGER022 = 1
Endif
If ((U_Name() == "[MIKE MC]") || (U_Name() == "MIKE MC")) Then
INTEGER045 = 1
Endif
If (INTEGER045 == 1) Then
BIGSTR001 = "Nice to see you [mike mc]!"
Gosub LABEL034
Endif
Goto LABEL009
:LABEL008
INTEGER020 = 0
Print "@POFF@"
DispStr "%" + PPEPath() + "\CHAT" + String(INTEGER028) + ".ANS"
Select Case (INTEGER028)
Case 2
TSTRING030(7) = "@X04"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0C"
Case 1
TSTRING030(7) = "@X02"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0A"
Case 3
TSTRING030(7) = "@X04"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0C"
Case 4
TSTRING030(7) = "@X03"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0B"
Case 5
TSTRING030(7) = "@X05"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0D"
Case 6
TSTRING030(7) = "@X07"
TSTRING030(8) = "@X08"
TSTRING030(15) = "@X0F"
End Select
AnsiPos 1, 1
BIGSTR001 = STRING011
Gosub LABEL022
BIGSTR001 = U_Name()
BIGSTR001 = Lower(Right(BIGSTR001, 11))
BIGSTR001 = Trim(BIGSTR001, " ")
AnsiPos INTEGER039, 12
Print "@X08", BIGSTR001, " ", Chr(31)
AnsiPos 4, 12
Print Chr(30), " ", STRING021
If (INTEGER031 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 15
Print "@X0F"
SPrint "Effects"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER029 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 40, 1
INTEGER020 = 15
Print "@X0F"
SPrint "UsrWn"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER044 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 54, 1
INTEGER020 = 15
Print "@X0F"
SPrint "UsrExit"
AnsiPos INTEGER032, INTEGER033
Endif
If (INTEGER042 == 1) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 62, 1
INTEGER020 = 15
Print "@X0F"
SPrint "Macros"
AnsiPos INTEGER032, INTEGER033
Endif
INTEGER020 = 0
TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32)) + " "
STRING016 = ""
TINTEGER019(INTEGER022) = INTEGER016
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos 1, 3
INTEGER016 = 1
INTEGER017 = 3
For INTEGER024 = 1 To INTEGER022
INTEGER025 = 1
While (((1 < 0) && (INTEGER025 >= TINTEGER019(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER019(INTEGER024) - 1))) Do
STRING014 = Mid(TSTRING013(INTEGER024), INTEGER025, 1)
Gosub LABEL020
INTEGER025 = INTEGER025 + 1
EndWhile
INTEGER017 = INTEGER017 + 1
INTEGER016 = 1
Next
STRING016 = ""
INTEGER016 = INTEGER032
INTEGER017 = INTEGER033
AnsiPos INTEGER016, INTEGER017
TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32)) + " "
STRING017 = ""
TINTEGER018(INTEGER023) = INTEGER014
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos 1, 14
INTEGER014 = 1
INTEGER015 = 14
For INTEGER024 = 1 To INTEGER023
INTEGER025 = 1
While (((1 < 0) && (INTEGER025 >= TINTEGER018(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER018(INTEGER024) - 1))) Do
STRING015 = Mid(TSTRING012(INTEGER024), INTEGER025, 1)
Gosub LABEL021
INTEGER025 = INTEGER025 + 1
EndWhile
INTEGER015 = INTEGER015 + 1
INTEGER014 = 1
Next
STRING017 = ""
INTEGER014 = INTEGER032
INTEGER015 = INTEGER033
AnsiPos INTEGER014, INTEGER015
:LABEL009
If (INTEGER029 == 1) Then
STRING014 = ""
STRING015 = KInkey()
ElseIf (INTEGER030 == 1) Then
STRING014 = MInkey()
STRING015 = ""
Else
If (STRING026 == "") Then
STRING014 = KInkey()
Else
STRING014 = Left(STRING026, 1)
STRING026 = Mid(STRING026, 1, Len(STRING026) - 1)
Endif
If (STRING027 == "") Then
STRING015 = MInkey()
Else
STRING015 = Left(STRING027, 1)
STRING027 = Mid(STRING027, 1, Len(STRING027) - 1)
Endif
Endif
If (INTEGER035 == 0) Then
If (Right(STRING016, 2) == ":)") Then
INTEGER035 = 1
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07:)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X0F:)"
Delay 3
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07:)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X08:)"
INTEGER020 = 8
Goto LABEL010
Endif
If (Right(STRING016, 2) == "=)") Then
INTEGER035 = 1
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07=)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X0F=)"
Delay 3
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07=)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X08=)"
INTEGER020 = 8
Goto LABEL010
Endif
If (Right(STRING016, 2) == ":D") Then
INTEGER035 = 1
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07:D"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X0F:D"
Delay 3
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07:D"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X08:D"
INTEGER020 = 8
Goto LABEL010
Endif
If (Right(STRING016, 2) == ";)") Then
INTEGER035 = 1
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07;)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X0F;)"
Delay 3
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X07;)"
Delay 2
AnsiPos INTEGER016 - 2, INTEGER017
Print "@X08;)"
INTEGER020 = 8
Goto LABEL010
Endif
If (Right(STRING016, 2) == ":(") Then
INTEGER035 = 1
BIGSTR001 = "BUUUUUUUÄÄÄÄÄÄÄÄÄ!"
Gosub LABEL034
Goto LABEL010
Endif
If (Right(STRING016, 3) == "|-)") Then
INTEGER035 = 1
AnsiPos INTEGER016 - 3, INTEGER017
Print "@X07|-)"
Delay 2
AnsiPos INTEGER016 - 3, INTEGER017
Print "@X0F|-)"
Delay 3
AnsiPos INTEGER016 - 3, INTEGER017
Print "@X07|-)"
Delay 2
AnsiPos INTEGER016 - 3, INTEGER017
Print "@X08|-)"
INTEGER020 = 8
BIGSTR001 = "Yeah!! CYBER!! |-)"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 8)) == "ELEMENTS") Then
INTEGER035 = 1
BIGSTR001 = "E L E M E N T S ' 9 6"
Gosub LABEL036
Goto LABEL010
Endif
If (Upper(Right(STRING016, 4)) == " ELT") Then
INTEGER035 = 1
BIGSTR001 = "E L E M E N T S ' 9 6"
Gosub LABEL036
Goto LABEL010
Endif
If (Upper(Right(STRING016, 7)) == "WINDOWS") Then
INTEGER035 = 1
BIGSTR001 = "Windows!? Geekh!"
Gosub LABEL035
Goto LABEL010
Endif
If (Upper(Right(STRING016, 3)) == "DOS") Then
INTEGER035 = 1
BIGSTR001 = "DOS is best! Fuck the rest!"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 4)) == "OS/2") Then
INTEGER035 = 1
BIGSTR001 = "OS/2, YEAH!"
Gosub LABEL035
Goto LABEL010
Endif
If (Upper(Right(STRING016, 4)) == "UNIX") Then
INTEGER035 = 1
BIGSTR001 = "Junikz! YEAH!"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 9)) == "MICROSOFT") Then
INTEGER035 = 1
BIGSTR001 = "Gosh.. not them again!"
Gosub LABEL039
Goto LABEL010
Endif
If ((Upper(Right(STRING016, 2)) == "MC") && (Upper(Right(TSTRING013(INTEGER022), 5)) == "MIKE ")) Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 7, INTEGER033
BIGSTR001 = "mike mc"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "[mike mc] rules!"
Gosub LABEL035
Goto LABEL010
Endif
If ((Upper(Right(STRING016, 6)) == "FALCON") && (Upper(Right(TSTRING013(INTEGER022), 4)) == "DON ")) Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "Don Falcon"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "Don ""Partyfixaren"" Falcon"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 5)) == "RINCE") Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 5, INTEGER033
BIGSTR001 = "Rince"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "rince rewls!"
Gosub LABEL039
Goto LABEL010
Endif
If (Upper(Right(STRING016, 7)) == "DEADBOT") Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 7, INTEGER033
BIGSTR001 = "DeaDBoT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = ".. black portal .."
Gosub LABEL039
Goto LABEL010
Endif
If (Upper(Right(STRING016, 6)) == "MIKEMC") Then
INTEGER035 = 1
BIGSTR001 = "[mike mc] rules!"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 3)) == "WEB") Then
INTEGER035 = 1
BIGSTR001 = "Be sure to check out BREAKPOINT on tha web!"
Gosub LABEL034
BIGSTR001 = "http://www.kuai.se/~mikemc/bpt.html"
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 3)) == "PCB") Then
INTEGER035 = 1
BIGSTR001 = "PCBoard - For us with IQ 100 or higher."
Gosub LABEL032
Goto LABEL010
Endif
If ((Upper(Right(STRING016, 3)) == "S/X") || (Upper(Right(STRING016, 8)) == "SYSTEM/X")) Then
INTEGER035 = 1
BIGSTR001 = "SYSTEM/X - For 'em with IQ 7 or lower."
Gosub LABEL032
Goto LABEL010
Endif
If (Upper(Right(STRING016, 3)) == "BPT") Then
INTEGER035 = 1
BIGSTR001 = "b r e a k p o i n t p r o d u c t i o n s i 9 9 6"
Gosub LABEL038
Goto LABEL010
Endif
If (Upper(Right(STRING016, 10)) == "BREAKPOINT") Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BREAKPOINT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "b r e a k p o i n t p r o d u c t i o n s i 9 9 6"
Gosub LABEL038
Delay 5
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BREAKPOINT"
Gosub LABEL022
Delay 3
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BReaKPoiNT"
Gosub LABEL022
Delay 3
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "breakpoint"
Gosub LABEL022
Goto LABEL010
Endif
If (Upper(Right(STRING016, 9)) == "ULTRACHAT") Then
INTEGER035 = 1
INTEGER032 = INTEGER016
INTEGER033 = INTEGER017
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHAT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = " u l t r a c h a t "
Gosub LABEL037
Delay 5
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHAT"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRAchat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTrachat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "Ultrachat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ultrachat"
Gosub LABEL022
Delay 1
Endif
Endif
:LABEL010
If (INTEGER036 == 0) Then
If (Right(STRING017, 2) == ":)") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07:)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X0F:)"
Delay 3
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07:)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X08:)"
INTEGER020 = 8
Goto LABEL011
Endif
If (Right(STRING017, 2) == "=)") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07=)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X0F=)"
Delay 3
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07=)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X08=)"
INTEGER020 = 8
Goto LABEL011
Endif
If (Right(STRING017, 2) == ":D") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07:D"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X0F:D"
Delay 3
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07:D"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X08:D"
INTEGER020 = 8
Goto LABEL011
Endif
If (Right(STRING017, 2) == ";)") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07;)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X0F;)"
Delay 3
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X07;)"
Delay 2
AnsiPos INTEGER014 - 2, INTEGER015
Print "@X08;)"
INTEGER020 = 8
Goto LABEL011
Endif
If (Right(STRING017, 2) == ":(") Then
INTEGER036 = 1
BIGSTR001 = "BUUUUUUUÄÄÄÄÄÄÄÄÄ!"
Gosub LABEL034
Goto LABEL011
Endif
If (Right(STRING017, 3) == "|-)") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 3, INTEGER015
Print "@X07|-)"
Delay 2
AnsiPos INTEGER014 - 3, INTEGER015
Print "@X0F|-)"
Delay 3
AnsiPos INTEGER014 - 3, INTEGER015
Print "@X07|-)"
Delay 2
AnsiPos INTEGER014 - 3, INTEGER015
Print "@X08|-)"
INTEGER020 = 8
BIGSTR001 = "Yeah!! CYBER!! |-)"
Gosub LABEL032
Goto LABEL011
Endif
If (Right(STRING017, 7) == "chatter") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 7, INTEGER015
Print "@X08Ultrachat"
Delay 3
AnsiPos INTEGER014 - 7, INTEGER015
Print "@X07Ultrachat"
Delay 3
AnsiPos INTEGER014 - 7, INTEGER015
Print "@X0FUltrachat"
INTEGER014 = GetX()
INTEGER015 = GetY()
BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
Gosub LABEL032
Goto LABEL011
Endif
If (Right(STRING017, 6) == "chater") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X08Ultrachat"
Delay 3
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X07Ultrachat"
Delay 3
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X0FUltrachat"
INTEGER014 = GetX()
INTEGER015 = GetY()
BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
Gosub LABEL032
Goto LABEL011
Endif
If (Right(STRING017, 6) == "chaten") Then
INTEGER036 = 1
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X08Ultrachat"
Delay 3
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X07Ultrachat"
Delay 3
AnsiPos INTEGER014 - 6, INTEGER015
Print "@X0FUltrachat"
INTEGER014 = GetX()
INTEGER015 = GetY()
BIGSTR001 = "Ultrachat by MIKE MC fucking rulz!"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 7)) == "WINDOWS") Then
INTEGER036 = 1
BIGSTR001 = "Windows!? Geekh!"
Gosub LABEL035
Goto LABEL011
Endif
If (Upper(Right(STRING017, 8)) == "ELEMENTS") Then
INTEGER036 = 1
BIGSTR001 = "E L E M E N T S ' 9 6"
Gosub LABEL036
Goto LABEL011
Endif
If (Upper(Right(STRING017, 4)) == " ELT") Then
INTEGER036 = 1
BIGSTR001 = "E L E M E N T S ' 9 6"
Gosub LABEL036
Goto LABEL011
Endif
If (Upper(Right(STRING017, 3)) == "DOS") Then
INTEGER036 = 1
BIGSTR001 = "DOS is best! Fuck the rest!"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 4)) == "UNIX") Then
INTEGER036 = 1
BIGSTR001 = "Junikz! YEAH!"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 4)) == "OS/2") Then
INTEGER036 = 1
BIGSTR001 = "OS/2, YEAH!"
Gosub LABEL035
Goto LABEL011
Endif
If (Upper(Right(STRING017, 9)) == "MICROSOFT") Then
INTEGER036 = 1
BIGSTR001 = "Gosh.. not them again!"
Gosub LABEL039
Goto LABEL011
Endif
If ((Upper(Right(STRING017, 2)) == "MC") && (Upper(Right(TSTRING012(INTEGER023), 5)) == "MIKE ")) Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 7, INTEGER033
BIGSTR001 = "mike mc"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "[mike mc] rules!"
Gosub LABEL035
Goto LABEL011
Endif
If ((Upper(Right(STRING017, 6)) == "FALCON") && (Upper(Right(TSTRING012(INTEGER023), 4)) == "DON ")) Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "Don Falcon"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "Don ""Partyfixaren"" Falcon"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 5)) == "RINCE") Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 5, INTEGER033
BIGSTR001 = "Rince"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "rince rewls!"
Gosub LABEL039
Goto LABEL011
Endif
If (Upper(Right(STRING017, 7)) == "DEADBOT") Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 7, INTEGER033
BIGSTR001 = "DeaDBoT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = ".. black portal .."
Gosub LABEL039
Goto LABEL011
Endif
If (Upper(Right(STRING017, 6)) == "MIKEMC") Then
INTEGER036 = 1
BIGSTR001 = "[mike mc] rules!"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 3)) == "BPT") Then
INTEGER036 = 1
BIGSTR001 = "b r e a k p o i n t p r o d u c t i o n s i 9 9 6"
Gosub LABEL038
Goto LABEL011
Endif
If (Upper(Right(STRING017, 10)) == "BREAKPOINT") Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BREAKPOINT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = "b r e a k p o i n t p r o d u c t i o n s i 9 9 6"
Gosub LABEL038
Delay 5
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BREAKPOINT"
Gosub LABEL022
Delay 3
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "BReaKPoiNT"
Gosub LABEL022
Delay 3
AnsiPos INTEGER032 - 10, INTEGER033
BIGSTR001 = "breakpoint"
Gosub LABEL022
Goto LABEL011
Endif
If (Upper(Right(STRING017, 3)) == "WEB") Then
INTEGER036 = 1
BIGSTR001 = "Be sure to check out BREAKPOINT on tha web!"
Gosub LABEL034
BIGSTR001 = "http://www.kuai.se/~mikemc/bpt.html"
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 3)) == "PCB") Then
INTEGER036 = 1
BIGSTR001 = "PCBoard - For us with IQ 100 or higher."
Gosub LABEL032
Goto LABEL011
Endif
If ((Upper(Right(STRING017, 3)) == "S/X") || (Upper(Right(STRING017, 8)) == "SYSTEM/X")) Then
INTEGER036 = 1
BIGSTR001 = "SYSTEM/X - For them with IQ 7 or lower."
Gosub LABEL032
Goto LABEL011
Endif
If (Upper(Right(STRING017, 9)) == "ULTRACHAT") Then
INTEGER036 = 1
INTEGER032 = INTEGER014
INTEGER033 = INTEGER015
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHAT"
Gosub LABEL041
AnsiPos INTEGER032, INTEGER033
BIGSTR001 = " u l t r a c h a t "
Gosub LABEL037
Delay 5
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHAT"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRACHat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTRAchat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ULTrachat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "Ultrachat"
Gosub LABEL022
Delay 1
AnsiPos INTEGER032 - 9, INTEGER033
BIGSTR001 = "ultrachat"
Gosub LABEL022
Delay 1
Endif
Endif
:LABEL011
If (INTEGER031 == 1) INTEGER040 = INTEGER040 + 1
If ((INTEGER031 == 1) && (INTEGER040 > INTEGER041)) Then
INTEGER040 = 0
INTEGER037 = INTEGER037 + 1
INTEGER038 = INTEGER038 + 1
If (INTEGER037 > Len(STRING021)) INTEGER037 = 1
If (INTEGER038 > Len(U_Name())) INTEGER038 = 1
BIGSTR001 = "@X08" + Lower(Left(U_Name(), INTEGER038 - 1))
BIGSTR001 = BIGSTR001 + "@X07" + Upper(Mid(U_Name(), INTEGER038, 1))
BIGSTR001 = BIGSTR001 + "@X08" + Lower(Mid(U_Name(), INTEGER038 + 1, Len(U_Name()) - INTEGER038))
AnsiPos INTEGER039, 12
Print BIGSTR001
BIGSTR001 = "@X08" + Lower(Left(STRING021, INTEGER037 - 1))
BIGSTR001 = BIGSTR001 + "@X07" + Upper(Mid(STRING021, INTEGER037, 1))
BIGSTR001 = BIGSTR001 + "@X08" + Lower(Mid(STRING021, INTEGER037 + 1, Len(STRING021) - INTEGER037))
AnsiPos 6, 12
Print BIGSTR001
INTEGER020 = 8
Delay 1
Endif
If (BOOLEAN007 == 1) Goto LABEL012
If (Left(Time(), 5) <> STRING020) Then
Inc INTEGER034
STRING020 = Left(Time(), 5)
If (((INTEGER034 == 2) || (INTEGER034 == 6)) || ((INTEGER034 == 15) || (Right(String(INTEGER034), 1) == "0"))) Then
AnsiPos 1, 23
Print " "
BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
Gosub LABEL035
Goto LABEL012
Endif
AnsiPos 1, 23
Print " "
INTEGER024 = Random(100)
If (INTEGER024 == 1) Then
BIGSTR001 = "Breakpoint rulez!"
Gosub LABEL037
Goto LABEL012
Endif
If (INTEGER024 == 2) Then
BIGSTR001 = "Call Tha Dark Frontier!"
Gosub LABEL036
BIGSTR001 = " 46 [0]470 15740 "
Gosub LABEL036
Goto LABEL012
Endif
If (INTEGER024 == 3) Then
BIGSTR001 = " remember to join #bpt "
Gosub LABEL034
Goto LABEL012
Endif
If (INTEGER024 == 4) Then
BIGSTR001 = Mixed(U_Name()) + " has placed " + String(U_Logons()) + " calls to this board!"
Gosub LABEL032
Goto LABEL012
Endif
If (INTEGER024 == 5) Then
BIGSTR001 = Mixed(U_Name()) + " has written " + String(U_MsgWr()) + " messages!"
Gosub LABEL032
Goto LABEL012
Endif
If (INTEGER024 == 6) Then
BIGSTR001 = "this chatter is made by MIKE MC of breakpoint!"
Gosub LABEL037
Goto LABEL012
Endif
If (INTEGER024 == 7) Then
BIGSTR001 = ". . b r e a k p o i n t p r o d u c t i o n s . ."
Gosub LABEL036
Goto LABEL012
Endif
If (INTEGER024 == 8) Then
BIGSTR001 = ". . b r e a k p o i n t p r o d u c t i o n s . ."
Gosub LABEL034
Goto LABEL012
Endif
If (INTEGER024 == 9) Then
BIGSTR001 = ". . . . ... breakpoint ... . . . ."
Gosub LABEL034
Goto LABEL012
Endif
If (INTEGER024 == 10) Then
BIGSTR001 = ". . . . .. bpt .. . . . ."
Gosub LABEL035
Goto LABEL012
Endif
If (INTEGER024 < 30) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 21, 1
BIGSTR001 = "MIKE MC"
Gosub LABEL022
INTEGER020 = 0
For INTEGER027 = 1 To 5 * INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 21, 1
Print "@X0FMIKE MC"
INTEGER020 = 0
For INTEGER027 = 1 To 70 * INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 21, 1
BIGSTR001 = "MIKE MC"
Gosub LABEL022
INTEGER020 = 0
For INTEGER027 = 1 To 5 * INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 21, 1
BIGSTR001 = "mike mc"
Gosub LABEL022
BOOLEAN007 = 0
AnsiPos INTEGER032, INTEGER033
Goto LABEL012
Endif
If (INTEGER024 < 40) Then
INTEGER032 = GetX()
INTEGER033 = GetY()
For INTEGER026 = 2 To 10
AnsiPos INTEGER026, 1
BIGSTR001 = Mid(STRING011, INTEGER026, 1)
BIGSTR001 = Upper(BIGSTR001)
INTEGER020 = 0
Gosub LABEL022
For INTEGER027 = 0 To INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
Next
For INTEGER026 = 2 To 10
AnsiPos INTEGER026, 1
BIGSTR001 = Mid(STRING011, INTEGER026, 1)
BIGSTR001 = Lower(BIGSTR001)
INTEGER020 = 0
Gosub LABEL022
For INTEGER027 = 0 To INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
Next
BOOLEAN007 = 0
AnsiPos INTEGER032, INTEGER033
INTEGER032 = GetX()
INTEGER033 = GetY()
Goto LABEL012
Endif
If (INTEGER024 < 60) Then
For INTEGER026 = 2 To Len(STRING011 + " ")
AnsiPos INTEGER026 + 1, 1
Print "@X0F" + Mid(STRING011 + " ", INTEGER026 + 1, 1)
AnsiPos INTEGER026, 1
BIGSTR001 = Mid(STRING011 + " ", INTEGER026, 1)
INTEGER020 = 0
Gosub LABEL022
For INTEGER027 = 1 To INTEGER049
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
Next
BOOLEAN007 = 0
AnsiPos INTEGER032, INTEGER033
Goto LABEL012
Endif
If (INTEGER024 < 80) Then
BIGSTR001 = " PRESS CTRL-Z FOR HELP! "
Gosub LABEL040
Goto LABEL012
Endif
If (INTEGER024 < 82) Then
BIGSTR001 = " ultrachat by [mike mc] "
Gosub LABEL040
Endif
Endif
:LABEL012
If (STRING014 == Chr(0)) Goto LABEL014
Select Case (STRING014)
Case Chr(27)
Goto LABEL016
Case "BADKEY"
Goto LABEL014
Case Chr(18)
Goto LABEL008
Case Chr(3)
Gosub LABEL025
Case Chr(2)
INTEGER028 = INTEGER028 + 1
If (INTEGER028 > INTEGER050) INTEGER028 = 1
Goto LABEL008
Case Chr(4)
Gosub LABEL029
Case Chr(1)
Gosub LABEL042
Case Chr(17), 1, 1
INTEGER030 = 0
Case Chr(23), 0
INTEGER029 = 1
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 40, 1
INTEGER020 = 1
Print "@X0F"
SPrint "UsrWn"
AnsiPos INTEGER032, INTEGER033
Case Chr(5), 1
INTEGER031 = 0
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint " "
AnsiPos INTEGER032, INTEGER033
Case Chr(5), 0
INTEGER031 = 1
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint "Effects"
INTEGER040 = 0
AnsiPos INTEGER032, INTEGER033
Case Chr(21)
INTEGER032 = GetX()
INTEGER033 = GetY()
INTEGER024 = Random(INTEGER051 - 1) + 1
AnsiPos 20, 12
Print " "
AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
Print "@X08" + TSTRING033(INTEGER024)
Delay 1
AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
Print "@X07" + TSTRING033(INTEGER024)
Delay 1
AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
Print "@X0F" + TSTRING033(INTEGER024)
Delay 2
AnsiPos 40 - Len(TSTRING033(INTEGER024)) / 2, 12
Print "@X07" + TSTRING033(INTEGER024)
INTEGER020 = 0
AnsiPos INTEGER032, INTEGER033
Case Chr(19)
Goto LABEL057
Case Chr(9), Chr(26)
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Please Wait Sysop Is Viewing The Help.. "
Gosub LABEL022
AnsiPos 1, 1
For INTEGER024 = 1 To 22
SPrint " "
Next
FOpen 1, PPEPath() + "\SYSHELP1.ANS", 0, 0
AnsiPos 1, 1
For INTEGER024 = 1 To 21
FGet 1, BIGSTR001
SPrintLn BIGSTR001
Next
FClose 1
While (KInkey() == "") Do
EndWhile
AnsiPos 1, 1
For INTEGER024 = 1 To 22
SPrint " "
Next
FOpen 1, PPEPath() + "\SYSHELP2.ANS", 0, 0
AnsiPos 1, 1
For INTEGER024 = 1 To 21
FGet 1, BIGSTR001
SPrintLn BIGSTR001
Next
FClose 1
While (KInkey() == "") Do
EndWhile
Goto LABEL008
Case 0
If ((Asc(STRING014) > 96) && (Asc(STRING014) < 123)) Then
INTEGER021 = 7
Goto LABEL013
Endif
If ((Asc(STRING014) > 64) && (Asc(STRING014) < 91)) Then
INTEGER021 = 15
Goto LABEL013
Endif
If ((Asc(STRING014) > 47) && (Asc(STRING014) < 58)) Then
INTEGER021 = 15
Goto LABEL013
Endif
If ((Asc(STRING014) > 57) && (Asc(STRING014) < 65)) Then
INTEGER021 = 8
Goto LABEL013
Endif
If ((Asc(STRING014) > 90) && (Asc(STRING014) < 97)) Then
INTEGER021 = 8
Goto LABEL013
Endif
If (Asc(STRING014) < 48) Then
INTEGER021 = 8
Goto LABEL013
Endif
If (Asc(STRING014) == 32) Then
INTEGER021 = 7
Goto LABEL013
Endif
If (((STRING014 == "Å") || (STRING014 == "Ä")) || (STRING014 == "Ö")) Then
INTEGER021 = 15
Goto LABEL013
Endif
INTEGER021 = 7
:LABEL013
Gosub LABEL018
INTEGER035 = 0
End Select
:LABEL014
If (STRING015 == Chr(0)) Goto LABEL009
Select Case (STRING015)
Case Chr(27)
If (INTEGER044 == 1) Then
Goto LABEL016
Else
BIGSTR001 = "N I C E T R Y =)"
Gosub LABEL037
Endif
Case Chr(18)
Goto LABEL008
Case Chr(3)
Gosub LABEL026
Case "BADKEY"
Goto LABEL009
Case Chr(23), 1
INTEGER029 = 0
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 40, 1
INTEGER020 = 15
Print "@X0F"
SPrint " "
AnsiPos INTEGER032, INTEGER033
Case Chr(17), 0, 1
INTEGER030 = 1
Case Chr(9), Chr(26)
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " User Is Viewing The Help.. ESC To Quit.."
Gosub LABEL022
FOpen 1, PPEPath() + "\CHATHELP.PCB", 0, 0
For INTEGER024 = 3 To 21
AnsiPos 20, INTEGER024
Print " "
FGet 1, BIGSTR001
AnsiPos 20, INTEGER024
Print BIGSTR001
Next
FClose 1
While (Inkey() <> Chr(27)) Do
EndWhile
INTEGER020 = 1
KbdFlush
MdmFlush
AnsiPos INTEGER032, INTEGER033
Goto LABEL008
Case 0
If ((Asc(STRING015) > 96) && (Asc(STRING015) < 123)) Then
INTEGER021 = 7
Goto LABEL015
Endif
If ((Asc(STRING015) > 64) && (Asc(STRING015) < 91)) Then
INTEGER021 = 15
Goto LABEL015
Endif
If ((Asc(STRING015) > 47) && (Asc(STRING015) < 58)) Then
INTEGER021 = 15
Goto LABEL015
Endif
If ((Asc(STRING015) > 57) && (Asc(STRING015) < 65)) Then
INTEGER021 = 8
Goto LABEL015
Endif
If ((Asc(STRING015) > 90) && (Asc(STRING015) < 97)) Then
INTEGER021 = 8
Goto LABEL015
Endif
If (Asc(STRING015) < 48) Then
INTEGER021 = 8
Goto LABEL015
Endif
If (Asc(STRING015) == 32) Then
INTEGER021 = 7
Goto LABEL015
Endif
If (((STRING015 == "Å") || (STRING015 == "Ä")) || (STRING015 == "Ö")) Then
INTEGER021 = 15
Goto LABEL015
Endif
INTEGER021 = 7
:LABEL015
Gosub LABEL019
INTEGER036 = 0
End Select
If (BOOLEAN007 == 1) Return
Goto LABEL009
:LABEL016
Cls
Delay 3
DispStr STRING031 + "11;30H@X08ppe"
Delay 1
DispStr STRING031 + "11;30H@X07ppe @X08made"
Delay 1
DispStr STRING031 + "11;30H@X0Fppe @X07made @X08by"
Delay 1
DispStr STRING031 + "11;30H@X07ppe @X0Fmade @X07by @X08mike mc"
Delay 1
DispStr STRING031 + "11;30H@X08ppe @X07made @X0Fby @X07mike mc@X08/elt"
Delay 1
DispStr STRING031 + "11;30H @X08made @X07by @X0Fmike mc@X07/elt"
Delay 1
DispStr STRING031 + "11;30H @X08by @X07mike mc@X0F/elt"
Delay 1
DispStr STRING031 + "11;30H @X08mike mc/@X07elt"
Delay 1
DispStr STRING031 + "11;30H @X08/elt"
Delay 1
DispStr STRING031 + "11;30H "
Cls
KbdStuff Chr(13)
End
:LABEL017
If (INTEGER021 <> INTEGER020) Then
Print TSTRING030(INTEGER021)
INTEGER020 = INTEGER021
Endif
Return
:LABEL018
Select Case (Asc(STRING014))
Case 13
If (INTEGER017 == 10) Then
If (INTEGER042 == 1) Gosub LABEL062
Gosub LABEL049
TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32))
Gosub LABEL027
Else
If (INTEGER042 == 1) Gosub LABEL062
Gosub LABEL049
TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32))
STRING016 = ""
TINTEGER019(INTEGER022) = INTEGER016
INTEGER022 = INTEGER022 + 1
TSTRING013(INTEGER022) = ""
INTEGER016 = 1
INTEGER017 = INTEGER017 + 1
AnsiPos INTEGER016, INTEGER017
Endif
Case 8
If ((INTEGER016 == 1) && (INTEGER017 > 3)) Then
INTEGER017 = INTEGER017 - 1
INTEGER022 = INTEGER022 - 1
INTEGER016 = TINTEGER019(INTEGER022)
AnsiPos INTEGER016, INTEGER017
STRING016 = ""
ElseIf ((INTEGER016 == 1) && (INTEGER017 == 3)) Then
AnsiPos INTEGER016, INTEGER017
Else
INTEGER016 = INTEGER016 - 1
AnsiPos INTEGER016, INTEGER017
Print " "
AnsiPos INTEGER016, INTEGER017
If (Len(STRING016) > 0) STRING016 = Left(STRING016, Len(STRING016) - 1)
If (Len(STRING016) == 0) TSTRING013(INTEGER022) = Left(TSTRING013(INTEGER022), Len(TSTRING013(INTEGER022)) - 1)
Endif
Case 78
If (INTEGER017 == 10) Then
STRING018 = STRING014
Gosub LABEL027
For INTEGER024 = 2 To Len(STRING016)
STRING014 = Mid(STRING016, INTEGER024, 1)
Gosub LABEL020
Next
STRING014 = STRING018
STRING016 = STRING016 + STRING018
Gosub LABEL020
Else
STRING018 = STRING014
AnsiPos INTEGER016 - Len(STRING016) + 1, INTEGER017
TINTEGER019(INTEGER022) = GetX() - 1
INTEGER022 = INTEGER022 + 1
For INTEGER024 = 2 To Len(STRING016)
Print " "
Next
INTEGER017 = INTEGER017 + 1
INTEGER016 = 1
For INTEGER024 = 2 To Len(STRING016)
STRING014 = Mid(STRING016, INTEGER024, 1)
Gosub LABEL020
Next
STRING014 = STRING018
STRING016 = STRING016 + STRING018
Gosub LABEL020
Endif
Case Chr(32)
If (INTEGER042 == 1) Gosub LABEL062
TSTRING013(INTEGER022) = TSTRING013(INTEGER022) + Trim(STRING016, Chr(32)) + " "
STRING016 = ""
Gosub LABEL017
AnsiPos INTEGER016, INTEGER017
STRING016 = STRING016 + STRING014
Print STRING014
INTEGER016 = GetX()
INTEGER017 = GetY()
Case Else
Gosub LABEL017
AnsiPos INTEGER016, INTEGER017
STRING016 = STRING016 + STRING014
Print STRING014
INTEGER016 = GetX()
INTEGER017 = GetY()
End Select
Return
:LABEL019
Select Case (Asc(STRING015))
Case 13
If (INTEGER015 == 21) Then
If (INTEGER042 == 1) Gosub LABEL065
Gosub LABEL051
TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32))
Gosub LABEL028
Else
If (INTEGER042 == 1) Gosub LABEL065
Gosub LABEL051
TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32))
TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + STRING017
STRING017 = ""
TINTEGER018(INTEGER023) = INTEGER014
INTEGER023 = INTEGER023 + 1
TSTRING012(INTEGER023) = ""
INTEGER014 = 1
INTEGER015 = INTEGER015 + 1
AnsiPos INTEGER014, INTEGER015
Endif
Case 8
If ((INTEGER014 == 1) && (INTEGER015 > 14)) Then
INTEGER015 = INTEGER015 - 1
INTEGER023 = INTEGER023 - 1
INTEGER014 = TINTEGER018(INTEGER023)
AnsiPos INTEGER014, INTEGER015
STRING017 = ""
ElseIf ((INTEGER014 == 1) && (INTEGER015 == 14)) Then
AnsiPos INTEGER014, INTEGER015
Else
If (Len(STRING017) > 0) STRING017 = Left(STRING017, Len(STRING017) - 1)
If (Len(STRING017) == 0) TSTRING012(INTEGER023) = Left(TSTRING012(INTEGER023), Len(TSTRING012(INTEGER023)) - 1)
INTEGER014 = INTEGER014 - 1
AnsiPos INTEGER014, INTEGER015
Print " "
AnsiPos INTEGER014, INTEGER015
Endif
Case 78
If (INTEGER015 == 21) Then
STRING018 = STRING015
Gosub LABEL028
For INTEGER024 = 2 To Len(STRING017)
STRING015 = Mid(STRING017, INTEGER024, 1)
Gosub LABEL021
Next
STRING015 = STRING018
STRING017 = STRING017 + STRING018
Gosub LABEL021
Else
STRING018 = STRING015
AnsiPos INTEGER014 - Len(STRING017) + 1, INTEGER015
TINTEGER018(INTEGER023) = GetX() - 1
INTEGER023 = INTEGER023 + 1
For INTEGER024 = 2 To Len(STRING017)
Print " "
Next
INTEGER015 = INTEGER015 + 1
INTEGER014 = 1
For INTEGER024 = 2 To Len(STRING017)
STRING015 = Mid(STRING017, INTEGER024, 1)
Gosub LABEL021
Next
STRING015 = STRING018
STRING017 = STRING017 + STRING018
Gosub LABEL021
Endif
Case Chr(32)
If (INTEGER042 == 1) Gosub LABEL065
TSTRING012(INTEGER023) = TSTRING012(INTEGER023) + Trim(STRING017, Chr(32)) + " "
STRING017 = ""
Gosub LABEL017
AnsiPos INTEGER014, INTEGER015
STRING017 = STRING017 + STRING015
Print STRING015
INTEGER014 = GetX()
INTEGER015 = GetY()
Case Else
Gosub LABEL017
AnsiPos INTEGER014, INTEGER015
STRING017 = STRING017 + STRING015
Print STRING015
INTEGER014 = GetX()
INTEGER015 = GetY()
End Select
Return
:LABEL020
If ((Asc(STRING014) > 96) && (Asc(STRING014) < 123)) Then
INTEGER021 = 7
ElseIf ((Asc(STRING014) > 64) && (Asc(STRING014) < 91)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING014) > 47) && (Asc(STRING014) < 58)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING014) > 57) && (Asc(STRING014) < 65)) Then
INTEGER021 = 8
ElseIf ((Asc(STRING014) > 90) && (Asc(STRING014) < 97)) Then
INTEGER021 = 8
ElseIf (Asc(STRING014) < 48) Then
INTEGER021 = 8
ElseIf (Asc(STRING014) == 32) Then
INTEGER021 = 7
ElseIf (((STRING014 == "Å") || (STRING014 == "Ä")) || (STRING014 == "Ö")) Then
INTEGER021 = 15
Else
INTEGER021 = 7
Endif
Gosub LABEL017
AnsiPos INTEGER016, INTEGER017
Print STRING014
INTEGER016 = GetX()
INTEGER017 = GetY()
Return
:LABEL021
If ((Asc(STRING015) > 96) && (Asc(STRING015) < 123)) Then
INTEGER021 = 7
ElseIf ((Asc(STRING015) > 64) && (Asc(STRING015) < 91)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING015) > 47) && (Asc(STRING015) < 58)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING015) > 57) && (Asc(STRING015) < 65)) Then
INTEGER021 = 8
ElseIf ((Asc(STRING015) > 90) && (Asc(STRING015) < 97)) Then
INTEGER021 = 8
ElseIf (Asc(STRING015) < 48) Then
INTEGER021 = 8
ElseIf (Asc(STRING015) == 32) Then
INTEGER021 = 7
ElseIf (((STRING015 == "Å") || (STRING015 == "Ä")) || (STRING015 == "Ö")) Then
INTEGER021 = 15
Else
INTEGER021 = 7
Endif
Gosub LABEL017
AnsiPos INTEGER014, INTEGER015
Print STRING015
INTEGER014 = GetX()
INTEGER015 = GetY()
Return
:LABEL022
For INTEGER024 = 1 To Len(BIGSTR001)
STRING018 = Mid(BIGSTR001, INTEGER024, 1)
If ((Asc(STRING018) > 96) && (Asc(STRING018) < 123)) Then
INTEGER021 = 7
ElseIf ((Asc(STRING018) > 64) && (Asc(STRING018) < 91)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING018) > 47) && (Asc(STRING018) < 58)) Then
INTEGER021 = 15
ElseIf ((Asc(STRING018) > 57) && (Asc(STRING018) < 65)) Then
INTEGER021 = 8
ElseIf ((Asc(STRING018) > 90) && (Asc(STRING018) < 97)) Then
INTEGER021 = 8
ElseIf (Asc(STRING018) < 48) Then
INTEGER021 = 8
ElseIf (Asc(STRING018) == 32) Then
INTEGER021 = 7
ElseIf (((STRING018 == "Å") || (STRING018 == "Ä")) || (STRING018 == "Ö")) Then
INTEGER021 = 15
Else
INTEGER021 = 7
Endif
Gosub LABEL017
Print STRING018
Next
Return
:LABEL023
AnsiPos 1, 3
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
AnsiPos 1, 3
INTEGER016 = 1
INTEGER017 = 3
Return
:LABEL024
AnsiPos 1, 14
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
AnsiPos 1, 14
INTEGER014 = 1
INTEGER015 = 14
Return
:LABEL025
AnsiPos 1, 3
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
TSTRING013(1) = ""
TSTRING013(2) = ""
TSTRING013(3) = ""
TSTRING013(4) = ""
TSTRING013(5) = ""
TSTRING013(6) = ""
TSTRING013(7) = ""
TSTRING013(8) = ""
TINTEGER019(1) = 1
TINTEGER019(2) = 1
TINTEGER019(3) = 1
TINTEGER019(4) = 1
TINTEGER019(5) = 1
TINTEGER019(6) = 1
TINTEGER019(7) = 1
TINTEGER019(8) = 1
STRING016 = ""
AnsiPos 1, 3
INTEGER016 = 1
INTEGER017 = 3
Return
:LABEL026
AnsiPos 1, 14
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
Print " "
TSTRING012(1) = ""
TSTRING012(2) = ""
TSTRING012(3) = ""
TSTRING012(4) = ""
TSTRING012(5) = ""
TSTRING012(6) = ""
TSTRING012(7) = ""
TSTRING012(8) = ""
TINTEGER018(1) = 1
TINTEGER018(2) = 1
TINTEGER018(3) = 1
TINTEGER018(4) = 1
TINTEGER018(5) = 1
TINTEGER018(6) = 1
TINTEGER018(7) = 1
TINTEGER018(8) = 1
STRING017 = ""
AnsiPos 1, 14
INTEGER014 = 1
INTEGER015 = 14
Return
:LABEL027
INTEGER022 = 4
TINTEGER019(1) = TINTEGER019(6)
TINTEGER019(2) = TINTEGER019(7)
TINTEGER019(3) = INTEGER016
TSTRING013(1) = TSTRING013(6)
TSTRING013(2) = TSTRING013(7)
TSTRING013(3) = TSTRING013(8)
TSTRING013(4) = ""
TSTRING013(5) = ""
TSTRING013(6) = ""
TSTRING013(7) = ""
TSTRING013(8) = ""
Gosub LABEL023
For INTEGER024 = 1 To 3
INTEGER025 = 1
While (((1 < 0) && (INTEGER025 >= TINTEGER019(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER019(INTEGER024) - 1))) Do
STRING014 = Mid(TSTRING013(INTEGER024), INTEGER025, 1)
Gosub LABEL020
INTEGER025 = INTEGER025 + 1
EndWhile
INTEGER017 = INTEGER017 + 1
INTEGER016 = 1
Next
AnsiPos 1, 6
INTEGER016 = 1
INTEGER017 = 6
STRING016 = ""
Return
:LABEL028
INTEGER023 = 4
TINTEGER018(1) = TINTEGER018(6)
TINTEGER018(2) = TINTEGER018(7)
TINTEGER018(3) = INTEGER014
TSTRING012(1) = TSTRING012(6)
TSTRING012(2) = TSTRING012(7)
TSTRING012(3) = TSTRING012(8)
TSTRING012(4) = ""
TSTRING012(5) = ""
TSTRING012(6) = ""
TSTRING012(7) = ""
TSTRING012(8) = ""
Gosub LABEL024
For INTEGER024 = 1 To 3
INTEGER025 = 1
While (((1 < 0) && (INTEGER025 >= TINTEGER018(INTEGER024) - 1)) || ((1 >= 0) && (INTEGER025 <= TINTEGER018(INTEGER024) - 1))) Do
STRING015 = Mid(TSTRING012(INTEGER024), INTEGER025, 1)
Gosub LABEL021
INTEGER025 = INTEGER025 + 1
EndWhile
INTEGER015 = INTEGER015 + 1
INTEGER014 = 1
Next
AnsiPos 1, 17
INTEGER014 = 1
INTEGER015 = 17
STRING017 = ""
Return
:LABEL029
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " File To Download: "
Gosub LABEL022
STRING019 = FUNCTION001("", 54, "@X0B", Mask_File() + "öäåÖÄÅεÆ∩", 1)
If (STRING019 == "") Then
AnsiPos 1, 23
BIGSTR001 = " Download Aborted. "
Gosub LABEL022
AnsiPos INTEGER016, INTEGER017
Return
Endif
If (Exist(STRING019) == 0) Then
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " File Not Found! "
Gosub LABEL022
Delay 20
AnsiPos 1, 23
Print " "
Return
Endif
Cls
MdmFlush
BIGSTR001 = "Flagging file..."
Gosub LABEL022
Delay 5
Flag STRING019
BIGSTR001 = "Downloading..."
Gosub LABEL022
Delay 5
Cls
Download STRING019
Goto LABEL008
Return
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " File To View: "
Gosub LABEL022
STRING019 = FUNCTION001("", 54, "@X0B", Mask_File() + "öäåÖÄÅεÆ∩", 1)
If (STRING019 == "") Then
AnsiPos 1, 23
Print " "
AnsiPos INTEGER016, INTEGER017
Return
Endif
If (Exist(STRING019) == 0) Then
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " File Not Found! "
Gosub LABEL022
Delay 20
AnsiPos 1, 23
Print " "
Return
Endif
Cls
FOpen 1, STRING019, 0, 0
:LABEL030
For INTEGER024 = 1 To 22
FGet 1, BIGSTR001
If (BIGSTR001 == Chr(0)) Goto LABEL031
PrintLn BIGSTR001
Next
Wait
Goto LABEL030
:LABEL031
FClose 1
Goto LABEL008
Return
:LABEL032
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X08", BIGSTR001
Delay 2
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X07", BIGSTR001
Delay 4
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X0F", BIGSTR001
Delay 30
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X07", BIGSTR001
Delay 4
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X08", BIGSTR001
Delay 2
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL033
BIGSTR002 = " " + BIGSTR001 + " "
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
For INTEGER024 = 1 To Len(BIGSTR002)
AnsiPos 40 - Len(BIGSTR002) / 2 + INTEGER024 - 6, 23
Print " @X08" + Mid(BIGSTR002, INTEGER024 - 2, 1) + "@X07" + Mid(BIGSTR002, INTEGER024 - 1, 1) + "@X0F" + Mid(BIGSTR002, INTEGER024, 4) + "@X07" + Mid(BIGSTR002, INTEGER024 + 4, 1) + "@X08" + Mid(BIGSTR002, INTEGER024 + 5, 1)
Delay 2
Next
AnsiPos INTEGER032, INTEGER033
Return
:LABEL034
BIGSTR002 = " " + BIGSTR001 + " "
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
For INTEGER024 = 1 To Len(BIGSTR002)
AnsiPos 40 - Len(BIGSTR002) / 2 + INTEGER024 - 6, 23
Print " @X08" + Mid(BIGSTR002, INTEGER024 - 2, 1) + "@X07" + Mid(BIGSTR002, INTEGER024 - 1, 1) + "@X0F" + Mid(BIGSTR002, INTEGER024, 4) + "@X07" + Mid(BIGSTR002, INTEGER024 + 4, 1) + "@X08" + Mid(BIGSTR002, INTEGER024 + 5, 1)
Delay 1
Next
AnsiPos INTEGER032, INTEGER033
Return
:LABEL035
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X08", BIGSTR001
Delay 2
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X07", BIGSTR001
Delay 2
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X0F", BIGSTR001
Delay 10
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X07", BIGSTR001
Delay 2
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X08", BIGSTR001
Delay 2
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL036
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X04" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 1
Print "@X0C" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 2
Print "@X04" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 3
Print "@X08" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 4
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL037
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X03" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 1
Print "@X0B" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 4
Print "@X03" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 3
Print "@X08" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 3
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL038
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X02" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 1
Print "@X0A" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 2
Print "@X02" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 3
Print "@X08" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 3
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL039
INTEGER020 = 8
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print " "
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Print "@X07" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 1
Print "@X0F" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 5
Print "@X07" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 5
Print "@X08" + BIGSTR001
AnsiPos 40 - Len(BIGSTR001) / 2, 23
Delay 5
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL040
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 1, 23
Print "@X08" + BIGSTR001
For INTEGER027 = 1 To INTEGER049 * 2
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
INTEGER020 = 0
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 1, 23
Print "@X07" + BIGSTR001
For INTEGER027 = 1 To INTEGER049 * 2
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
INTEGER020 = 0
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 1, 23
Print "@X0F" + BIGSTR001
For INTEGER027 = 1 To INTEGER049 * 4
BOOLEAN007 = 1
AnsiPos INTEGER032, INTEGER033
INTEGER020 = 0
Gosub LABEL009
INTEGER032 = GetX()
INTEGER033 = GetY()
Next
AnsiPos 1, 23
Print "@X07" + BIGSTR001
INTEGER020 = 0
AnsiPos INTEGER032, INTEGER033
BOOLEAN007 = 0
Return
:LABEL041
Print "@X0F" + Mid(BIGSTR001, 1, 1)
For INTEGER024 = 1 To Len(BIGSTR001)
Delay 1
AnsiPos GetX() - 1, GetY()
Print "@X07" + Mid(BIGSTR001, INTEGER024, 1) + "@X0F" + Mid(BIGSTR001, INTEGER024 + 1, 1)
Next
Return
:LABEL042
INTEGER020 = 7
INTEGER032 = GetX()
INTEGER033 = GetY()
GetUser
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Sysop Is Now Editing YOU! ;)"
Gosub LABEL022
If (BIGSTR001 == BIGSTR001) Gosub LABEL044
AnsiPos 1, 23
INTEGER020 = 7
Print "@X07"
SPrint "Current Sec: Press ESC when finished."
:LABEL043
AnsiPos 14, 23
SPrint U_Sec, " "
Delay 1
STRING014 = KInkey()
Goto LABEL047
:LABEL044
BIGSTR001 = "Sorry, This Access Level Does Not Exist!"
Return
:LABEL045
GetUser
BIGSTR001 = " Saving User Information.. "
If (U_Sec >= INTEGER024) Goto LABEL046
If (U_Sec >= SysopSec()) Goto LABEL046
U_Sec = INTEGER024
U_ExpSec = U_Sec
U_ExpDate = "00-00-00"
PutUser
:LABEL046
Return
:LABEL047
If (STRING014 == Chr(27)) Goto LABEL048
If (STRING014 == "UP") U_Sec = U_Sec + 1
If (STRING014 == "DOWN") U_Sec = U_Sec - 1
Goto LABEL043
:LABEL048
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Saving User Information.. "
Gosub LABEL022
U_ExpSec = U_Sec
U_ExpDate = "00-00-00"
PutUser
Delay 18
AnsiPos 29, 23
Print " "
AnsiPos 29, 23
BIGSTR001 = "Done!"
Gosub LABEL022
Delay 9
AnsiPos 1, 23
Print " "
AnsiPos INTEGER032, INTEGER033
Return
:LABEL049
Select Case (Upper(STRING016))
Case "/TIME"
BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
Gosub LABEL032
Case "/DOC"
BIGSTR001 = "Try Ctrl-I !"
Gosub LABEL032
Case "/INFO"
BIGSTR001 = "Soo.. I'll give you some info!"
Gosub LABEL032
Delay 5
BIGSTR001 = "ELEMENTS RULE!!"
Gosub LABEL032
BIGSTR001 = "=) =) =) =) =) =) =) =)"
Gosub LABEL034
Delay 18
BIGSTR001 = "HINT: For help type /DOC"
Gosub LABEL032
Case "/CURTIME"
BIGSTR001 = "The time is @SYSTIME@"
Gosub LABEL032
Case "/CURDATE"
BIGSTR001 = "The date is @SYSDATE@"
Gosub LABEL032
Case "/HELP"
BIGSTR001 = "ARE YOU KIDDING ME?!"
Gosub LABEL032
Delay 18
BIGSTR001 = "HINT: Use /INFO instead!"
Gosub LABEL032
Case "/BACKGROUND="
STRING026 = Chr(13)
BIGSTR001 = "Preparing for BACKGROUND change ...................... Done!"
Gosub LABEL034
INTEGER028 = S2I(Right(STRING016, 1), 10)
If (INTEGER028 > INTEGER050) INTEGER028 = INTEGER050
Goto LABEL008
Case "/SPEED="
INTEGER041 = S2I(Right(STRING016, Len(STRING016) - 7), 10)
If (INTEGER041 < 1) INTEGER041 = 1
If (INTEGER041 > 999) INTEGER041 = 999
BIGSTR001 = " NEW SPEED: " + String(INTEGER041) + "."
Gosub LABEL033
Case "/GREETS"
Gosub LABEL054
Case "/PART"
STRING026 = Chr(27)
Case "/SETTINGS"
STRING026 = Chr(13)
Goto LABEL057
Case "/MACROS"
INTEGER042 = INTEGER042 + 1
Select Case (INTEGER042)
Case 2
INTEGER042 = 0
BIGSTR001 = "Macros ...... OFF!"
Gosub LABEL034
STRING026 = Chr(13)
Goto LABEL008
Case 1
BIGSTR001 = "Macros ...... ON!"
Gosub LABEL034
STRING026 = Chr(13)
Goto LABEL008
End Select
Case "/LISTMACROS"
STRING026 = Chr(13)
Goto LABEL068
Case "/USEREXIT"
INTEGER044 = INTEGER044 + 1
If (INTEGER044 == 2) INTEGER044 = 0
STRING026 = Chr(13)
Goto LABEL008
Case "/USERADD"
INTEGER043 = INTEGER043 + 1
If (INTEGER043 == 2) INTEGER043 = 0
STRING026 = Chr(13)
Goto LABEL008
Case "/CASESENSETIVE"
INTEGER048 = INTEGER048 + 1
If (INTEGER048 == 2) INTEGER048 = 0
STRING026 = Chr(13)
Goto LABEL008
Case "/VERSION"
Gosub LABEL069
Case "/ADDMACRO"
BOOLEAN006 = 1
Gosub LABEL070
Case "/ADDRUMOR"
BOOLEAN006 = 1
Gosub LABEL072
Case "/DOWNLOAD"
Gosub LABEL029
Case "/EFFECTS"
If (INTEGER031 == 1) Then
INTEGER031 = 0
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint " "
AnsiPos INTEGER032, INTEGER033
Goto LABEL050
Endif
Case 0
INTEGER031 = 1
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint "Effects"
INTEGER040 = 0
AnsiPos INTEGER032, INTEGER033
End Select
:LABEL050
Return
:LABEL051
Select Case (Upper(STRING017))
Case "/TIME"
BIGSTR001 = "You have now been chatting for " + String(INTEGER034) + " minutes."
Gosub LABEL032
Case "/CURTIME"
BIGSTR001 = "The time is @SYSTIME@"
Gosub LABEL032
Case "/CURDATE"
BIGSTR001 = "The date is @SYSDATE@"
Gosub LABEL032
Case "/INFO"
BIGSTR001 = "Soo.. I'll give you some info!"
Gosub LABEL032
Delay 5
BIGSTR001 = "BREAKPOINT RULE!!"
Gosub LABEL032
BIGSTR001 = "=) =) =) =) =) =) =) =)"
Gosub LABEL034
Delay 18
BIGSTR001 = "HINT: For help type /DOC"
Gosub LABEL032
Case "/HELP"
BIGSTR001 = "Only the SYSOP can ACCESS this command."
Gosub LABEL032
Case "Tjosan!", 1
INTEGER024 = 100
Gosub LABEL045
Case "/BACKGROUND="
STRING027 = Chr(13)
BIGSTR001 = "Preparing for BACKGROUND change ....................... Done!"
Gosub LABEL034
INTEGER028 = S2I(Right(STRING017, 1), 10)
If (INTEGER028 > INTEGER050) INTEGER028 = INTEGER050
Goto LABEL008
Case "/SPEED="
INTEGER041 = S2I(Right(STRING017, Len(STRING017) - 7), 10)
If (INTEGER041 < 1) INTEGER041 = 1
If (INTEGER041 > 999) INTEGER041 = 999
BIGSTR001 = " NEW SPEED: " + String(INTEGER041) + "."
Gosub LABEL033
Case "/GREETS"
Gosub LABEL054
Case "/LISTMACROS"
STRING027 = Chr(13)
Goto LABEL068
Case "/VERSION"
Gosub LABEL069
Case "/PART"
STRING027 = Chr(27)
Case "/ADDMACRO"
If (INTEGER043 == 1) Then
BOOLEAN006 = 0
Gosub LABEL070
Else
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Sorry kid, the sysop has disabled this function!"
Gosub LABEL022
Endif
Case "/ADDRUMOR"
If (INTEGER043 == 1) Then
BOOLEAN006 = 0
Gosub LABEL072
Else
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Sorry kid, the sysop has disabled this function!"
Gosub LABEL022
Endif
Case "/EFFECTS"
If (INTEGER031 == 1) Then
INTEGER031 = 0
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint " "
AnsiPos INTEGER032, INTEGER033
Goto LABEL052
Endif
Case 0
INTEGER031 = 1
INTEGER032 = GetX()
INTEGER033 = GetY()
AnsiPos 46, 1
INTEGER020 = 1
Print "@X0F"
SPrint "Effects"
INTEGER040 = 0
AnsiPos INTEGER032, INTEGER033
End Select
:LABEL052
Return
:LABEL053
If (INTEGER024 == 1) Then
For INTEGER025 = 60 To 40 Step -1
AnsiPos INTEGER025, 3
Print "@X08" + STRING025 + " "
For INTEGER024 = 1 To 2
Next
Next
For INTEGER025 = 39 To 30 Step -1
AnsiPos INTEGER025, 3
Print "@X08" + STRING025 + " "
For INTEGER024 = 1 To 5
Next
Next
For INTEGER025 = 29 To 20 Step -1
AnsiPos INTEGER025, 3
Print "@X07" + STRING025 + " "
For INTEGER024 = 1 To 7
Next
Next
For INTEGER025 = 19 To 5 Step -1
AnsiPos INTEGER025, 3
Print "@X07" + STRING025 + " "
For INTEGER024 = 1 To 10
Next
Next
AnsiPos 4, 3
BIGSTR001 = STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 3, 3
BIGSTR001 = STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 40
Next
AnsiPos 2, 3
BIGSTR001 = STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 50
Next
AnsiPos 1, 3
BIGSTR001 = STRING025 + " "
Gosub LABEL022
Else
For INTEGER025 = 60 To 30 Step -1
AnsiPos INTEGER025, 3
Print "@X08" + STRING025 + " "
For INTEGER024 = 1 To 10
Next
Next
For INTEGER025 = 29 To 1 Step -1
AnsiPos INTEGER025, 3
Print "@X07" + STRING025 + " "
For INTEGER024 = 1 To 10
Next
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 50
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = "" + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = " " + STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
BIGSTR001 = STRING025 + " "
Gosub LABEL022
For INTEGER024 = 1 To 20
Next
AnsiPos 1, 3
Endif
Return
:LABEL054
BIGSTR001 = " "
Gosub LABEL035
BIGSTR001 = "PRESS [ESC] TO QUIT THIS"
Gosub LABEL032
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = " Greets goes out to the following dudes... "
Gosub LABEL034
:LABEL055
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "fREEJACk ■ Cyber Circus"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Illogic ■ The Static Meltdown"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "ODiN ■ Providence"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Rince ■ Independent"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Mr Jets ■ Elements"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Ace ■ Playground"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Jason ■ Ravaged"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "CoCox ■ Inverted Mind"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Riot ■ Elements"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Cuminous ■ Providence"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Scorpio ■ Elements"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "HooDoo ■ Unholy Rage"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Thallion ■ Swedish Infomania"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Jack ■ Ectazia"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Don Falcon ■ Breakpoint"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Catonica ■ Stile"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Dragonfly ■ Da Foundation"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Merc ■ Breakpoint"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "The Effacer ■ Swedish Infomania"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Mendator ■ Providence"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = ".theta ■ Independent"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Speedy Gonzales ■ Jihad"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Taizy ■ The Cradle"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "fLOW ■ Spex"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Red Dwarf ■ Crow"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Peltier ■ The Virtual Empire"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Blizzard ■ DgE"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Intruder ■ Independent"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Samick ■ Moonshine"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Mad Devil ■ Madbase"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Deadbot ■ Black Portal"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = "Illmidus ■ Beam"
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
BIGSTR001 = " . . . esc 2 quit . . ."
Gosub LABEL035
If (Inkey() == Chr(27)) Goto LABEL056
Goto LABEL055
:LABEL056
Delay 2
KbdFlush
MdmFlush
Return
:LABEL057
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Sysop Is Changing The Settings.. Please wait.."
Gosub LABEL022
:LABEL058
FOpen 1, PPEPath() + "\CHATSTUP.ANS", 0, 0
For INTEGER024 = 5 To 19
AnsiPos 20, INTEGER024
SPrint " "
AnsiPos 20, INTEGER024
FGet 1, BIGSTR001
SPrint BIGSTR001
Next
FClose 1
SPrint Chr(27) + "[0;1;36m"
If (INTEGER031 == 1) Then
AnsiPos 49, 8
SPrint "On "
Else
AnsiPos 49, 8
SPrint "Off"
Endif
AnsiPos 49, 9
SPrint INTEGER041
If (INTEGER042 == 1) Then
AnsiPos 49, 10
SPrint "On "
Else
AnsiPos 49, 10
SPrint "Off"
Endif
If (INTEGER043 == 1) Then
AnsiPos 49, 11
SPrint "On "
Else
AnsiPos 49, 11
SPrint "Off"
Endif
If (INTEGER044 == 1) Then
AnsiPos 49, 12
SPrint "On "
Else
AnsiPos 49, 12
SPrint "Off"
Endif
AnsiPos 49, 13
SPrint INTEGER028
If (INTEGER048 == 1) Then
AnsiPos 49, 14
SPrint "On "
Else
AnsiPos 49, 14
SPrint "Off"
Endif
:LABEL059
STRING014 = KInkey()
Select Case (STRING014)
Case Chr(27)
Goto LABEL061
Case "1"
INTEGER031 = INTEGER031 + 1
If (INTEGER031 == 2) INTEGER031 = 0
Goto LABEL058
Case "2"
INTEGER041 = INTEGER041 + 1
If (INTEGER041 == 100) INTEGER041 = 1
Goto LABEL058
Case "3"
INTEGER042 = INTEGER042 + 1
If (INTEGER042 == 2) INTEGER042 = 0
Goto LABEL058
Case "4"
INTEGER043 = INTEGER043 + 1
If (INTEGER043 == 2) INTEGER043 = 0
Goto LABEL058
Case "5"
INTEGER044 = INTEGER044 + 1
If (INTEGER044 == 2) INTEGER044 = 0
Goto LABEL058
Case "6"
INTEGER028 = INTEGER028 + 1
If (INTEGER028 > INTEGER050) INTEGER028 = 1
Goto LABEL058
Case "7"
INTEGER048 = INTEGER048 + 1
If (INTEGER048 == 2) INTEGER048 = 0
Goto LABEL058
End Select
:LABEL060
Goto LABEL059
:LABEL061
Goto LABEL008
:LABEL062
If (INTEGER048 == 1) Then
For INTEGER024 = 1 To INTEGER047
If (INTEGER035 == 1) Return
If ((Trim(STRING016, Chr(32)) == TSTRING028(INTEGER024)) && (Len(STRING016) > 0)) Then
INTEGER035 = 1
AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
Print " "
Next
AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
STRING016 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL063
Endif
If (GetY() <> 10) Then
TINTEGER019(INTEGER022) = Len(TSTRING013(INTEGER022))
INTEGER022 = INTEGER022 + 1
AnsiPos 1, GetY() + 1
STRING016 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL063
Endif
BIGSTR001 = TSTRING028(INTEGER024)
:LABEL063
Gosub LABEL022
INTEGER016 = GetX()
INTEGER017 = GetY()
Endif
Next
Else
For INTEGER024 = 1 To INTEGER047
If (INTEGER035 == 1) Return
If ((Lower(Trim(STRING016, Chr(32))) == Lower(TSTRING028(INTEGER024))) && (Len(STRING016) > 0)) Then
INTEGER035 = 1
AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
Print " "
Next
AnsiPos INTEGER016 - Len(TSTRING028(INTEGER024)), INTEGER017
If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
STRING016 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL064
Endif
If (GetY() <> 10) Then
TINTEGER019(INTEGER022) = Len(TSTRING013(INTEGER022))
INTEGER022 = INTEGER022 + 1
AnsiPos 1, GetY() + 1
STRING016 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL064
Endif
BIGSTR001 = TSTRING028(INTEGER024)
:LABEL064
Gosub LABEL022
INTEGER016 = GetX()
INTEGER017 = GetY()
Endif
Next
Endif
Return
:LABEL065
If (INTEGER048 == 1) Then
For INTEGER024 = 1 To INTEGER047
If (INTEGER036 == 1) Return
If ((Trim(STRING017, Chr(32)) == TSTRING028(INTEGER024)) && (Len(STRING017) > 0)) Then
INTEGER036 = 1
AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
Print " "
Next
AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
STRING017 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL066
Endif
If (GetY() <> 21) Then
TINTEGER018(INTEGER023) = Len(TSTRING012(INTEGER023))
INTEGER023 = INTEGER023 + 1
AnsiPos 1, GetY() + 1
STRING017 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL066
Endif
BIGSTR001 = TSTRING028(INTEGER024)
:LABEL066
Gosub LABEL022
INTEGER014 = GetX()
INTEGER015 = GetY()
Endif
Next
Else
For INTEGER024 = 1 To INTEGER047
If (INTEGER036 == 1) Return
If ((Lower(Trim(STRING017, Chr(32))) == Lower(TSTRING028(INTEGER024))) && (Len(STRING017) > 0)) Then
INTEGER036 = 1
AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
For INTEGER025 = 1 To Len(TSTRING028(INTEGER024))
Print " "
Next
AnsiPos INTEGER014 - Len(TSTRING028(INTEGER024)), INTEGER015
If (GetX() + Len(TSTRING029(INTEGER024)) < 80) Then
STRING017 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL067
Endif
If (GetY() <> 21) Then
TINTEGER018(INTEGER023) = Len(TSTRING012(INTEGER023))
INTEGER023 = INTEGER023 + 1
AnsiPos 1, GetY() + 1
STRING017 = " " + TSTRING029(INTEGER024)
BIGSTR001 = TSTRING029(INTEGER024)
Goto LABEL067
Endif
BIGSTR001 = TSTRING028(INTEGER024)
:LABEL067
Gosub LABEL022
INTEGER014 = GetX()
INTEGER015 = GetY()
Endif
Next
Endif
Return
:LABEL068
Cls
FOpen 1, PPEPath() + "\CHATMCRO.ANS", 0, 0
FGet 1, BIGSTR001
PrintLn BIGSTR001
FGet 1, BIGSTR001
PrintLn BIGSTR001
FGet 1, BIGSTR001
PrintLn BIGSTR001
AnsiPos 1, 19
FGet 1, BIGSTR001
PrintLn BIGSTR001
FGet 1, BIGSTR001
PrintLn BIGSTR001
FGet 1, BIGSTR001
PrintLn BIGSTR001
FClose 1
INTEGER025 = 0
For INTEGER024 = 1 To INTEGER047
INTEGER025 = INTEGER025 + 1
If (INTEGER025 == 16) Then
AnsiPos 10, 21
If (FUNCTION002("@X0Fc@X07ontinue@X08? ") == 0) Break
For INTEGER025 = 3 To 18
AnsiPos 1, INTEGER025
Print " "
Next
INTEGER025 = 1
AnsiPos 1, INTEGER025 + 3
Endif
AnsiPos 10, INTEGER025 + 3
PrintLn "@X0B" + TSTRING028(INTEGER024)
AnsiPos 30, INTEGER025 + 3
PrintLn "@X0B" + TSTRING029(INTEGER024)
Next
AnsiPos 1, 22
Wait
Goto LABEL008
:LABEL069
BIGSTR001 = "U L T R A C H A T"
Gosub LABEL037
BIGSTR001 = "V E R S I O N I N F O"
Gosub LABEL037
BIGSTR001 = STRING011
Gosub LABEL034
BIGSTR001 = ".."
Gosub LABEL036
BIGSTR001 = "BY"
Gosub LABEL036
BIGSTR001 = "MIKE MC"
Gosub LABEL037
BIGSTR001 = ".."
Gosub LABEL036
BIGSTR001 = "DO"
Gosub LABEL036
BIGSTR001 = "** NEVER **"
Gosub LABEL037
BIGSTR001 = "FORGET"
Gosub LABEL036
BIGSTR001 = "THAT"
Gosub LABEL036
BIGSTR001 = "=)"
Gosub LABEL036
Return
:LABEL070
AnsiPos 1, 23
Print " "
If (INTEGER047 == INTEGER046) Then
AnsiPos 1, 23
BIGSTR001 = " You have reached the limit for the number of macros."
Else
AnsiPos 1, 23
BIGSTR001 = " Triggerword:"
Gosub LABEL022
AnsiPos 15, 23
TSTRING028(INTEGER047 + 1) = FUNCTION001("", 15, "@X0B", Mask_AlNum() + "öäåÖÄÅεÆ∩", BOOLEAN006)
If ((TSTRING028(INTEGER047 + 1) == "") || (TSTRING028(INTEGER047 + 1) == "mike")) Then
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Macro to short."
Gosub LABEL022
Delay 8
Else
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Replacement word:"
Gosub LABEL022
AnsiPos 20, 23
TSTRING029(INTEGER047 + 1) = FUNCTION001("", 40, "@X0B", Mask_Ascii() + "öäåÖÄÅεÆ∩■∙·", BOOLEAN006)
If (TSTRING029(INTEGER047 + 1) == "") Then
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Macro to short."
Gosub LABEL022
Delay 8
Else
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Adding Macro..."
Gosub LABEL022
INTEGER047 = INTEGER047 + 1
FAppend 1, PPEPath() + "MACROS.DAT", 0, 0
FPutLn 1, TSTRING028(INTEGER047)
FPutLn 1, TSTRING029(INTEGER047)
FClose 1
FOpen 1, PPEPath() + "MACROS.NUM", 1, 0
FPutLn 1, String(INTEGER047)
FClose 1
Delay 10
AnsiPos 1, 23
BIGSTR001 = " Adding Macro... Done."
Gosub LABEL022
Delay 10
AnsiPos 1, 23
BIGSTR001 = " Total number of macros: " + String(INTEGER047)
Gosub LABEL022
Delay 8
Endif
Endif
Endif
:LABEL071
Return
:LABEL072
AnsiPos 1, 23
Print " "
If (INTEGER051 == 99) Then
AnsiPos 1, 23
BIGSTR001 = " You have reached the limit for the number of macros."
Goto LABEL071
Endif
AnsiPos 1, 23
BIGSTR001 = " Rumor: "
Gosub LABEL022
AnsiPos 15, 23
TSTRING033(INTEGER051) = FUNCTION001("", 40, "@X0B", Mask_Ascii() + "öäåÖÄÅεÆ∩", BOOLEAN006)
If (TSTRING033(INTEGER051) == "") Then
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Rumor to short."
Gosub LABEL022
Delay 8
Else
AnsiPos 1, 23
Print " "
AnsiPos 1, 23
BIGSTR001 = " Adding Rumor..."
Gosub LABEL022
INTEGER051 = INTEGER051 + 1
TSTRING033(INTEGER051) = "ULTRACHAT BY [MIKE MC]"
FOpen 1, PPEPath() + "RUMORS.DAT", 1, 0
For INTEGER024 = 1 To INTEGER051 - 1
FPut 1, TSTRING033(INTEGER024) + Chr(13) + Chr(10)
Next
FPut 1, "" + Chr(13) + Chr(10)
FPut 1, " what da hell is this?" + Chr(13) + Chr(10)
FPut 1, "-────────────────────────────────────────────────────────────────────────--" + Chr(13) + Chr(10)
FPut 1, "The rumors (max 40 chars (if you use background 1 and 2!))" + Chr(13) + Chr(10)
FPut 1, "Max 100 lines" + Chr(13) + Chr(10)
FPut 1, "You can add rumors from inside the chatter with /ADDRUMOR" + Chr(13) + Chr(10) + Chr(13) + Chr(10)
FClose 1
Delay 10
AnsiPos 1, 23
BIGSTR001 = " Adding Rumor... Done."
Gosub LABEL022
Delay 10
AnsiPos 1, 23
BIGSTR001 = " Total number of Rumors: " + String(INTEGER051 - 1)
Gosub LABEL022
Delay 8
Endif
Return
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 6 Cls
; 2 Wait
; 809 Goto
; 1166 Let
; 230 Print
; 9 PrintLn
; 463 If
; 12 FOpen
; 1 FAppend
; 13 FClose
; 27 FGet
; 7 FPut
; 3 FPutLn
; 2 GetUser
; 2 PutUser
; 1 Log
; 282 Gosub
; 45 Return
; 123 Delay
; 1 Inc
; 1 KbdStuff
; 12 DispStr
; 390 AnsiPos
; 35 SPrint
; 2 SPrintLn
; 1 PageOff
; 2 KbdFlush
; 3 MdmFlush
; 1 Flag
; 1 Download
; 3 EndFunc
;
;
; ■ Functions used :
;
; 18 -
; 12 *
; 36 /
; 394 +
; 174 -
; 344 ==
; 9 <>
; 127 <
; 86 <=
; 47 >
; 172 >=
; 376 !
; 219 &&
; 103 ||
; 116 Len(
; 11 Lower()
; 83 Upper()
; 34 Mid()
; 16 Left()
; 66 Right()
; 130 Chr()
; 71 Asc()
; 14 Trim()
; 4 Random()
; 4 Time()
; 11 U_Name()
; 1 U_Logons()
; 1 TimeAp()
; 38 Inkey()
; 13 String()
; 1 Mask_AlNum()
; 2 Mask_File()
; 2 Mask_Ascii()
; 14 PPEPath()
; 1 U_MsgWr()
; 1 SysopSec()
; 1 GetToken()
; 2 Exist()
; 4 S2I()
; 69 GetX()
; 71 GetY()
; 7 KInkey()
; 2 MInkey()
; 1 TokCount()
; 2 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Wfs
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; f - Flag files for download ■ 3
; This may be normal if a PPE needs to send some files, but since
; this statement allows flagging of any file on the hard disk, you
; have to be carefull. Check!
; ■ Search for : FLAG
;
; s - Sysop level access ■ 5
; Program is reading the sysop access level, this may be normal
; but still it is very suspect. It is the best way to give a user
; all priviledges. Check!
; ■ Search for : SYSOPSEC()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 79 For/Next
; 8 While/EndWhile
; 184 If/Then or If/Then/Else
; 13 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
(.txt)
(.txt)